REM >Director:Menus.Modes.XxYsub
ON ERROR PRINT REPORT$;" at line ";ERL:END
SYS "OS_GetEnv" TO in$
x=EVAL(FNarg(in$,"-x","-1"))
y=EVAL(FNarg(in$,"-y","-1"))
DIM block 32

menu=FNswi_number("Director_Menu")
endmenu=FNswi_number("Director_EndMenu")
option=FNswi_number("Director_Option")
command=FNswi_number("Director_Command")
dash=FNswi_number("Director_Dash")

menu$=STR$ x+" x "+STR$ y
menu$=""
SYS "OS_CLI","Menu """+menu$+""" Modelist -temp"
DIM bpp$(5)
bpp$()="2","4","16","256","32T","16M"
FOR bpp=0 TO 5
 !block=1
 block!4=x
 block!8=y
 block!12=bpp
 block!16=-1
 block!20=-1
 SYS "OS_CheckModeValid",block TO ok
 IF ok=-1 grey$=" -grey" ELSE grey$=""
 SYS option,bpp$(bpp)+grey$
    SYS command,"WimpMode X"+STR$(x)+" Y"+STR$(y)+" C"+bpp$(bpp)
NEXT
SYS endmenu

*Set Director$Menu Modelist
END

DEF FNarg(str$,arg$,def$)
LOCAL i,j
i=INSTR(str$,arg$)
IF i=0 THEN =def$
i+=LEN arg$+1
j=INSTR(str$+" <"," ",i)
=MID$(str$,i,j-i)

DEF FNswi_number(swi$)
SYS "OS_SWINumberFromString",,swi$ TO swi%
=swi%
